home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / GRAPHICS / UVE138.ZIP / EXAMPLES.ZIP / CHAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-08-30  |  454 b   |  27 lines
  1. {$A+,B-,D+,E+,F-,G+,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+}
  2. {$M 16384,0,655360}
  3.  
  4. {
  5. CHAIN.PAS
  6. Demonstrates sprite chaining
  7. }
  8.  
  9. uses    crt,uve32;
  10.  
  11. var    pal:palette;
  12.  
  13. begin
  14.     ia_inituve;
  15.     ia_loadpalette('sphere.pal',pal);
  16.     ia_loadspr('sphere.uvl',1);
  17.     ia_chainsprite(1,spritesloaded,1);
  18.     ia_setcycletime(100);
  19.     spr[1].n:=1;
  20.     ia_center(1,160,100,5);
  21.     ia_powerup;
  22.     ia_setpalette(pal);
  23.     repeat
  24.         ia_doframe;
  25.     until keypressed;
  26.     ia_shutdown;
  27. end.